#INCLUDE "PROTHEUS.CH"
#INCLUDE "APWEBEX.CH"

User Function fswpva01()
local chtml:= ""

WEB EXTENDED INIT cHtml

If !Empty(HttpSession->aUser) .and. !Empty(HttpSession->aComan)
	Return cHtml := RedirPage("u_fswpva03.apw")
ElseIF !Empty(HttpSession->aUser) .and. Empty(HttpSession->aComan)
	Return cHtml := RedirPage("u_fswpva02.apw")
Else
	Return cHtml := ExecInPage("fswpvh01")
EndIf

cHtml := ExecInPage( "fswpvh01" )

WEB EXTENDED END
Return cHtml